home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-20 / nrd34.zip / RTTYOFF.PAS < prev    next >
Pascal/Delphi Source File  |  1991-05-12  |  556b  |  28 lines
  1. {$I-}
  2. {$V-}
  3. {$M 65520,0,640000}
  4.  
  5. {  ROUTINE:    R T T Y O F F
  6.  
  7.    PURPOSE:    Turn off RTTY mode in an NRD535.  Run before using NRD
  8.  
  9.    USAGE:    rttyoff
  10.  
  11.    AUTHOR:    Tom Whiteside 11505 Oak View, Austin, TX 78759 (512) 258-5924
  12.  
  13.    REVISION:    1.0  05-12-91  TGW  Initial Release
  14. }
  15. program rttyoff(input,output);
  16.  
  17. uses async, crt, dos, screen, nrdio;
  18.  
  19. begin
  20.   init_com;
  21.   write_com(COM_NRD,'H1');
  22.   write_com(COM_NRD,'X0');
  23.   delay(500);
  24.   write_com(COM_NRD,'H0');
  25.   home;
  26.   gotoxy(2,5);
  27.   writeln(output,'RTTY Output mode disabled');
  28. end.